Public Class frmLoading
    Private IsClosed As Boolean = False

    Private Sub SplashForm_FormClosed(ByVal sender As Object, ByVal e As FormClosedEventArgs)
        Me.IsClosed = True
    End Sub


    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()
        AddHandler Me.FormClosed, New FormClosedEventHandler(AddressOf SplashForm_FormClosed)
        ' Add any initialization after the InitializeComponent() call.

    End Sub
    Public Sub New(ByVal str As String)

        ' This call is required by the Windows Form Designer.
        InitializeComponent()
        Me.Label1.Text = str
        AddHandler Me.FormClosed, New FormClosedEventHandler(AddressOf SplashForm_FormClosed)
        ' Add any initialization after the InitializeComponent() call.

    End Sub

End Class